Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/mackun.sit/Mackun/É}ÉbÉNÉì1.0(ÉxÅ[É^î≈)/stack.txt

Text File | 1990-05-15 | 4KB | 129 lines

-- stack: in.0(ÉxÅ[É^î≈)
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2809
-- card count: 5
-- first card id: 2857
-- list block id: 6032
-- print block id: 3329
-- font table block id: 0
-- style table block id: 0
-- free block count: 2
-- free size: 8352 bytes
-- total size: 49152 bytes
-- stack block size: 3584 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  global fdata,fname,finData
  global Mpitch,Mrate,Mrobot

  put card field "Mrate" of card "MackunSet" into Mrate
  put card field "Mpitch" of card "MackunSet"  into Mpitch
  put card field "Mrobot" of card "MackunSet"  into Mrobot

  set the userlevel to 5
  set the loc of msg to -5,313
  hide menubar
  set the loc of bkgnd button "menubar" to 256,6
  set the hilite of bkgnd button "menubar" to true

  put empty into fdata
  put empty into   finData
  put empty into fName
end openStack

on idle
  if the userlevel is not 5
  then
  openStack
end if
end idle

on MackunSpeech
  get param(1)
  put param(2) into Mrate
  put param(3) into Mpitch
  put param(4) into Mrobot

  if it is not empty
  then
  put the number of lines in it  into flen
  repeat with n=1 to   flen
    put kanToRom(line n of it) into romdata
    if ((item 1 of romdata) is not "0")
    then
    if ((item 1 of romdata) is "-99")
    then
    answer "Makun.ReadMeÇÉVÉXÉeÉÄÉtÉHÉãÉ_Å[Ç…ì¸ÇÍǃ!"
  else
    answer "kanji?.dat3ÇÉVÉXÉeÉÄÉtÉHÉãÉ_Å[Ç…ì¸ÇÍǃ!"
  end if
  exit MackunSpeech

else
  put MackunR((item 2 to 200 of romdata),Mrate,Mpitch,Mrobot) into dummy
  if (dummy is not 0)
  then
  put dummy
  answer "MacinTalkÇÉVÉXÉeÉÄÉtÉHÉãÉ_Å[Ç…ì¸ÇÍǃ!"
  exit MackunSpeech
end if
end if
end  repeat
end if
end MackunSpeech